home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / TR-IN3.ZIP / TRIP!IN.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1996-12-07  |  7.6 KB  |  362 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     String   STRING001
  21.     String   STRING002
  22.     String   STRING003
  23.     String   STRING004
  24.     String   STRING005
  25.     String   STRING006
  26.     String   STRING007
  27.     String   STRING008
  28.     String   STRING009
  29.     String   STRING010
  30.     String   STRING011
  31.     String   STRING012
  32.     String   STRING013
  33.     String   STRING014
  34.     String   STRING015
  35.     String   STRING016
  36.     String   STRING017
  37.     String   STRING018
  38.     String   STRING019
  39.     String   STRING020
  40.     String   STRING021
  41.     String   STRING022
  42.     String   STRING023
  43.  
  44. ;------------------------------------------------------------------------------
  45.  
  46.     CdChkOn
  47.     STRING014 = "0"
  48.     If (Exist(PPEPath() + "trip!in.CFG")) Goto LABEL001
  49.     FCreate 1, PPEPath() + "trip!in.cfg", 2, 0
  50.     FPutLn 1, "NONE"
  51.     FPutLn 1, "34"
  52.     FPutLn 1, "21"
  53.     FPutLn 1, "5"
  54.     FPutLn 1, "35"
  55.     FPutLn 1, "16"
  56.     FPutLn 1, "35"
  57.     FPutLn 1, "17"
  58.     FPutLn 1, "35"
  59.     FPutLn 1, "18"
  60.     FPutLn 1, "@X08(@X0FC@X08)@X0Bontinue   @X08(@X0FR@X08)@X0Be-Enter Handle    @X08(@X0F @X08)"
  61.     FPutLn 1, "2"
  62.     FPutLn 1, "20"
  63.     FPutLn 1, "@X0FEnter the NUP @X08: [          ]"
  64.     FPutLn 1, "@X0AYou were not found in the User Base!....        What now?"
  65.     FPutLn 1, ""
  66.     FPutLn 1, ""
  67.     FPutLn 1, "      trip^in configuration file!"
  68.     FPutLn 1, "     .--------------------------------------------------------------------."
  69.     FPutLn 1, "     |  1st line   :  If nup is used, enter your nup else enter NONE      |"
  70.     FPutLn 1, "     |  2nd line   :  X position of status bar                            |"
  71.     FPutLn 1, "     |  3rd line   :  Y position of status bar                            |"
  72.     FPutLn 1, "     |  4th line   :  Number of password tries                            |"
  73.     FPutLn 1, "     |  5th line   :  X position of handle                                |"
  74.     FPutLn 1, "     |  6th line   :  Y position of handle                                |"
  75.     FPutLn 1, "     |  7th line   :  X position of location                              |"
  76.     FPutLn 1, "     |  8th line   :  Y position of location                              |"
  77.     FPutLn 1, "     |  9th line   :  X position of password                              |"
  78.     FPutLn 1, "     |  10th line  :  Y position of password                              |"
  79.     FPutLn 1, "     |  11th line  :  prompt when new user is found                       |"
  80.     FPutLn 1, "     |  12th line  :  X position of the nup prompt                        |"
  81.     FPutLn 1, "     |  13th line  :  Y position of the nup prompt                        |"
  82.     FPutLn 1, "     |  14th line  :  The nup prompt                                      |"
  83.     FPutLn 1, "     |  15th line  :  the colour+prompt when user not found in userbase!  |"
  84.     FPutLn 1, "     `--------------------------------------------------------------------'"
  85.     FPutLn 1, ""
  86.     End
  87.     :LABEL001
  88.     FOpen 1, PPEPath() + "trip!in.CFG", 2, 0
  89.     FGet 1, STRING001
  90.     FGet 1, STRING002
  91.     FGet 1, STRING003
  92.     FGet 1, STRING004
  93.     FGet 1, STRING005
  94.     FGet 1, STRING006
  95.     FGet 1, STRING007
  96.     FGet 1, STRING008
  97.     FGet 1, STRING015
  98.     FGet 1, STRING016
  99.     FGet 1, STRING017
  100.     FGet 1, STRING018
  101.     FGet 1, STRING019
  102.     FGet 1, STRING020
  103.     FGet 1, STRING023
  104.     FClose 1
  105.     Print "@CLS@@POFF@"
  106.     DispFile PPEPath() + "trip!in.PCB", 1
  107.     :LABEL002
  108.     STRING009 = ""
  109.     STRING010 = ""
  110.     AnsiPos STRING002, STRING003
  111.     Print "@X08                        "
  112.     AnsiPos STRING002, STRING003
  113.     Print "@X02Enter your handle."
  114.     AnsiPos STRING005, STRING006
  115.     InputStr "_", STRING009, 0, 25, Mask_Ascii(), 4096
  116.     If (STRING009 == "") Goto LABEL002
  117.     If (STRING009 == Chr(27)) DtrOff
  118.     If (STRING009 == " ") Goto LABEL002
  119.     INTEGER001 = U_RecNum(Upper(STRING009))
  120.     If (INTEGER001 == "-1") Goto LABEL004
  121.     GetAltUser INTEGER001
  122.     AnsiPos STRING007, STRING008
  123.     Print "@X08" + U_City
  124.     Delay 2
  125.     AnsiPos STRING007, STRING008
  126.     Print "@X07" + U_City
  127.     Delay 2
  128.     AnsiPos STRING007, STRING008
  129.     Print "@X0F" + U_City
  130.     Delay 2
  131.     STRING011 = "0"
  132.     If (STRING022 == "") STRING022 = "no tries yet"
  133.     :LABEL003
  134.     STRING010 = ""
  135.     STRING021 = STRING004 - STRING011
  136.     AnsiPos STRING002, STRING003
  137.     Print "@X08                        "
  138.     AnsiPos STRING002, STRING003
  139.     Print "@X02Enter Password @X08(" + STRING021 + " trys)"
  140.     AnsiPos 1, 1
  141.     SPrintLn "■-----------------------------------■"
  142.     SPrintLn "|           sysop info!             |"
  143.     SPrintLn ")-----------------------------------("
  144.     SPrintLn "| users password  -- [            ] |"
  145.     SPrintLn "| users input     -- [            ] |"
  146.     SPrintLn "■-----------------------------------■"
  147.     SPrintLn ""
  148.     AnsiPos 23, 5
  149.     SPrint "           "
  150.     AnsiPos 23, 5
  151.     Print STRING022
  152.     AnsiPos 23, 4
  153.     Color 8
  154.     SPrint U_Pwd
  155.     AnsiPos STRING015, STRING016
  156.     While ((STRING010 == "")) InputStr "_", STRING010, 7, 12, Mask_Pwd(), 1
  157.     STRING022 = ""
  158.     STRING022 = STRING010
  159.     AnsiPos 23, 5
  160.     SPrint "            "
  161.     AnsiPos 23, 5
  162.     SPrint STRING022
  163.     If (STRING010 == "") Goto LABEL003
  164.     If (Upper(STRING010) == U_Pwd) Goto LABEL009
  165.     AnsiPos STRING002, STRING003
  166.     Print "@X08                        "
  167.     AnsiPos STRING002, STRING003
  168.     Print "@X04Wrong Password Entard!"
  169.     STRING011 = STRING011 + 1
  170.     Delay 10
  171.     If (STRING011 == STRING004) Goto LABEL010
  172.     AnsiPos 35, 18
  173.     Print Space(12)
  174.     Backup 12
  175.     Goto LABEL003
  176.     :LABEL004
  177.     AnsiPos 1, 22
  178.     Print Space(80)
  179.     Delay 1
  180.     AnsiPos 1, 21
  181.     Print Space(80)
  182.     Delay 1
  183.     AnsiPos 1, 20
  184.     Print Space(80)
  185.     Delay 1
  186.     AnsiPos 1, 19
  187.     Print Space(80)
  188.     Delay 1
  189.     AnsiPos 1, 18
  190.     Print Space(80)
  191.     Delay 1
  192.     AnsiPos 1, 17
  193.     Print Space(80)
  194.     Delay 1
  195.     AnsiPos 1, 16
  196.     Print Space(80)
  197.     Delay 1
  198.     AnsiPos 1, 15
  199.     Print Space(80)
  200.     Delay 1
  201.     AnsiPos 1, 14
  202.     Print Space(80)
  203.     Delay 1
  204.     AnsiPos 1, 13
  205.     Print Space(80)
  206.     Delay 1
  207.     AnsiPos 1, 12
  208.     Print Space(80)
  209.     Delay 1
  210.     AnsiPos 10, 14
  211.     Print STRING023
  212.     AnsiPos 2, 16
  213.     Print "@X08▓▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▓▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▓▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▓▀▀"
  214.     AnsiPos 2, 18
  215.     Print "@X08▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▓▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▓▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▓▄▄▄▄▄▓▄▄"
  216.     AnsiPos 21, 17
  217.     Print STRING017
  218.     :LABEL005
  219.     AnsiPos 56, 17
  220.     InputStr "_", STRING012, 0, 1, "CcRr", 0
  221.     If (STRING012 == "") Goto LABEL005
  222.     If (Upper(STRING012) == "C") Goto LABEL006
  223.     If (Upper(STRING012) == "R") Goto LABEL008
  224.     Goto LABEL005
  225.     :LABEL006
  226.     If (Upper((STRING001 == "NONE"))) Goto LABEL007
  227.     AnsiPos STRING018, STRING019
  228.     Print STRING020
  229.     AnsiPos GetX() - 11, STRING019
  230.     InputStr "_", STRING013, 0, 10, Mask_Ascii(), 0
  231.     If (Upper(STRING013) == Upper(STRING001)) Goto LABEL007
  232.     :LABEL007
  233.     FreshLine
  234.     Newlines 3
  235.     Color 0
  236.     KbdStuff STRING009 + Chr(13) + Chr(13) + "C^M"
  237.     Color 7
  238.     Goto LABEL011
  239.     :LABEL008
  240.     AnsiPos 35, 16
  241.     Print Space(25)
  242.     AnsiPos 35, 16
  243.     Goto LABEL001
  244.     :LABEL009
  245.     AnsiPos 23, 5
  246.     SPrint "            "
  247.     AnsiPos 23, 5
  248.     Color 8
  249.     Print "correct!!"
  250.     AnsiPos 4, 23
  251.     FreshLine
  252.     ShowOff
  253.     Color 0
  254.     KbdStuff STRING009 + Chr(13) + Chr(13) + STRING010 + Chr(13)
  255.     Color 7
  256.     ShowOn
  257.     Goto LABEL011
  258.     :LABEL010
  259.     Newline
  260.     PrintLn "@X04Excessive password trys! Call back or Fuck off!"
  261.     Delay 5
  262.     Hangup
  263.     :LABEL011
  264.     Cls
  265.     End
  266.     Newline
  267.     Print "@X04WRONG SUCKER!"
  268.     Delay 10
  269.     Backup 15
  270.     Print Space(15)
  271.     STRING014 = STRING014 + 1
  272.     Delay 10
  273.     If (STRING014 == STRING004) Goto LABEL010
  274.     Goto LABEL001
  275.  
  276. ;------------------------------------------------------------------------------
  277. ;
  278. ; Usage report (before postprocessing)
  279. ;
  280. ; ■ Statements used :
  281. ;
  282. ;    2       End
  283. ;    1       Cls
  284. ;    6       Color 
  285. ;    20      Goto 
  286. ;    12      Let 
  287. ;    32      Print 
  288. ;    1       PrintLn 
  289. ;    16      If 
  290. ;    1       DispFile 
  291. ;    1       FCreate 
  292. ;    1       FOpen 
  293. ;    1       FClose 
  294. ;    15      FGet 
  295. ;    36      FPutLn 
  296. ;    1       Hangup
  297. ;    4       InputStr 
  298. ;    1       DtrOff
  299. ;    1       CdChkOn
  300. ;    18      Delay 
  301. ;    2       Newline
  302. ;    1       Newlines 
  303. ;    2       KbdStuff 
  304. ;    41      AnsiPos 
  305. ;    2       Backup 
  306. ;    2       FreshLine
  307. ;    5       SPrint 
  308. ;    7       SPrintLn 
  309. ;    1       ShowOn
  310. ;    1       ShowOff
  311. ;    1       GetAltUser 
  312. ;
  313. ;
  314. ; ■ Functions used :
  315. ;
  316. ;    18      +
  317. ;    2       -
  318. ;    15      ==
  319. ;    7       Upper()
  320. ;    14      Space()
  321. ;    6       Chr()
  322. ;    1       Mask_Pwd()
  323. ;    2       Mask_Ascii()
  324. ;    4       PPEPath()
  325. ;    1       Exist()
  326. ;    1       GetX()
  327. ;    1       U_RecNum()
  328. ;
  329. ;------------------------------------------------------------------------------
  330. ;
  331. ; Analysis flags : RBH
  332. ;
  333. ; R - Read user ■ 5
  334. ;     User records are read, this may signify that someone wants to get
  335. ;     various informations about a user (for example his password), but
  336. ;     this may also be normal for a program accessing user records (for
  337. ;     example a User Editor)
  338. ;     ■ Search for : GETALTUSER
  339. ;
  340. ; B - Brute hangup ■ 1
  341. ;     Program hangup without notification. This may be a good way to
  342. ;     disconnect a user, but if used randomly, may be very nasty
  343. ;     ■ Search for : HANGUP, DTROFF
  344. ;
  345. ; H - Read Password or Password History ■ 5
  346. ;     Program is reading the user's password or last password history
  347. ;     This may be ok for a password manager, but it is very suspect. Check!
  348. ;     ■ Search for : U_PWDHIST, U_PWD
  349. ;
  350. ;------------------------------------------------------------------------------
  351. ;
  352. ; Postprocessing report
  353. ;
  354. ;    0       For/Next
  355. ;    0       While/EndWhile
  356. ;    0       If/Then or If/Then/Else
  357. ;    0       Select Case
  358. ;
  359. ;------------------------------------------------------------------------------
  360. ;                 AEGiS Corp - Break the routines, code against the machines!
  361. ;------------------------------------------------------------------------------
  362.